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The  standards  can  be  viewed  as  being  coding  enforcements  in  four  areas: 

1.  Documentation  Standards  - Standards  defining  quantity  and  placement  of 
commentary  thus  enhancing  program  readability  and  comprehensive. 

2.  Format  Standards  - Standards  identifying  physical  placement  and  grouping 
of  code  elements  on  the  source  code  listing. 

3.  Design  Standards  - Standards  limiting  module  size  and  placing  restriction 
on  the  use  of  certain  instructions  with  the  end  result  of  providing  an 
optimization  of  code  relative  to  execution  time. 

4.  Structural  Standards  - Standards  requiring  the  use  of  strict  rules  for 
the  top-down  design  and  implementation  of  a system  of  programs  and  the 
requirement  that  the  components  adhere  to  a hierarchical  form  as  much  as 
possible. 
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1.0  GENERAL  DESCRIPTION 


1.1  Purpose  of  the  Proaram  Maintenance  Manual 

The  objective  of  the  Program  Maintenance  Manual  is  to  provide 
the  maintenance  programmer  personnel  with  the  information 
necessary  to  effectively  maintain  the  RADC  FORTRAN  Code  Auditor. 

1.2  System  Appl i cation 

The  automated  test  tool,  Code  Auditor,  is  used  for  the  cost 
effective  enforcement  of  FORTRAN  programming  standards  and 
conventions  appropriate  to  the  Air  Force  software  environment. 

It  does  not  modify  code.  Using  pre-defined  coding  standards 
and  conventions,  it  simply  advises  the  user  where  these  stan- 
dards and  conventions  have  not  been  adhered  to  in  an  objective 
and  unambiguous  manner.  The  RADC  FORTRAN  Code  Auditor  also 
monitors  the  user's  source  code  to  determine  if  the  code  is 
structured  (i.e.,  consist  of  combinations  of  control 
structures)  such  that  control  flows  from  top  to  bottom,  beginning 
to  end. 

1.3  System  Configuration 

The  minimum  configuration  required  to  support  the  RADC  FORTRAN 
Code  Auditor  shall  include: 

1.  Honeywell  Series  600/6000  Information  Processing 
System  under  GC0S  control 

2.  40  K words  of  memory 
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3.  0SS180  Disk  Storage  Subsystem  or  the  equivalent; 
a minimum  of  1 drive 

4.  36  - bit  word  length 

5.  Card  Reader  - Reads  punched  80  column  cards 
(CRZ-201  or  equivalent) 

6.  Line  Printer  - Prints  132  columns  per  line 
(PRT  300/PRT  201  or  equivalent) 

7.  Software  - FORTRAN  Y compiler  (Honeywell  Extended 
Compi 1 er) 


2.0 


SYSTEM  DESCRIPTION 


2.1  General  Description 

The  Code  Auditor  consists  of  three  physical  overlays 
which  are  functionally  consistent  with  the  three  basic 
logical  components  of  the  system  and  their  attendent  operation. 
The  operations  performed  by  the  Code  Auditor's  logical  parts 
and  their  correlation  to  the  appropriate  physical  system 
overlays  are: 

A.  Analyze  the  user's  source  code  to  check  for 
non-adherence  to  the  established  standards 
and  conventions,  reporting  any  non-conformance 
monitored.  Overlay  A performs  this  function 
completely  independent  of  Overlays  B and  C. 

B.  Overlay  8 performs  a second  pass  analysis  of 
the  user's  source  code,  parsing  its  structure 
into  segments  and  relationships  among  segments  for 
subsequent  processing  by  Overlay  C.  The  Segment 
Transfer  Table,  which  describes  this  interrelation- 
ship among  the  program's  segments,  is  written  to 

a temporary  disk  file  and  constitutes  the  single 
interface  between  Overlays  B and  C. 
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C.  Overlay  C accepts  as  input  the  temporary  file 

created  in  Overlay  B containing  the  Segment  Transfer 
Table.  Via  iterative  application  of  the  reduction 
algorithm,  an  analysis  is  made  of  the  Segment  Transfer 
Table  to  establish  compliance  with  the  structured 
programming  rules.  This  overlay  prints  the  Segment 
Transfer  Table  as  passed  from  Overlay  B,  its  contents 
after  iterative  reduction  if  unstructured  and 

l 

summarily  a "structured/unstructured"  message  for 
each  module  of  the  user's  ^ource  processed. 

Figure  2.1-1  depicts  for  each  logical  segment,  its  interface 
with  other  segments,  files  processed,  and  reports  generated. 

The  main  driver  (root  segment)  is  interfaced  via  a labeled 
"COMMON"  to  each  of  the  three  overlays  comprising  the  Code 
Auditor  system.  Besides  providing  root  segment  access  to  Code 
Auditor  files,  the  labeled  "COMMON"  block  passes  option  card 
parameters  for  execution  control  of  the  individual  overlays. 
Figures  2.1-II  through  2.1-IV  depict  functional  flows  of 
Overlays  A,  B,  and  C respectively. 


INPUT  AND  SUBSEQUENT 
PROCESSING  OF  USER'S 
OPTION  CARD 


PRINT  ERROR  CODES 
FOR  CURRENT  STATEMENT 
AND  HOUSEKEEP 


PRINT  PROGRAM 
SUMMARIES  AND 
TERMINATE  EXECUTION 


AUDIT 


INITIALIZATIONS 


+ INITAL 


SYSTEM  INITIALIZATION 
AND  FIRST  PASS 
PROCESSING 


GENERATE  SEGMENT 
DESCRIPTION  TABLES 
FOR  CURRENT  SEGMENT 


* REINIT 


MODULE  INITIALIZATION 
(2ND-PASS) 


PCARD1 

PCARDN 

RCARDN 


Figure  2. 1 - 1 1 1 . 


Overlay  B Functional  Flow 
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STRUCT 


IN  CONJUNCTION  WITH 
SUBROUTINE  LPEX, 

INPUTS  THE  SEGMENT 
TRANSFER  TABLE  GENERATED 
IN  OVERLAY  B,  ITERATIVELY 
REDUCES  THEM  AND  PRINTS 
SUMMARY  MESSAGES 


FIGURE  2.1-IV.  OVERLAY  C FUNCTIONAL  FLOW 
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2.2  Detail  Description 

Table  I lists  all  modules  which  comprise  the  RADC  Code  Auditor. 

It  relates  them  to  the  Root  Segment,  Overlay  A,  Overlay  B,  and 
Overlay  C.  Each  module  is  indexed  to  the  program  description 
(paragraphs  2.2.1  - 2.2.66)  by  page  numbers. 

The  program  description  consists  of  five  possible  categories  which 
indicate  the  functional  characteristics  of  each  module.  They  are: 

Called  by:  Indicates  module(s)  which  call  the  subject  module 

into  execution. 

Subroutines  called:  Indicates  module(s)  which  are  called  into 

execution  by  subject  module.  The  subroutines 
called  are  presented  in  the  following  manner: 

XI  (Yl,  Y2,  ...,  Yn);  ...;  Xm  (Yl,  c,  Y2,  ...,  Yn) 
where  X = module  called, 

Y = argument  variable(s), 

c = constant  argument 

Parameters : Parameter  arguments  accepted  by  subject  module 

Files:  Logical  Unit  Variable/Number(s) 

Functional  Description:  Description  of  subject  module. 


9 


Subroutines  called:  FAUDIT;  AUDIT;  STRUCT 

File:  06 

Functional  Description  - This  program  module  provides  the 
sequencing  and  control  function  for  the  three  overlays 
of  the  RADC  FORTRAN  Code  Auditor.  Overlay  A examines  the 
user's  source  code  for  adherence  to  the  RADC  FORTRAN  coding 
standards  and  is  the  first  overlay  called  into  execution. 

Upon  return  of  control  from  Overlay  A's  driver  program, 
FAUDIT,  the  "COMMON " resident  control  variable,  NPA,  is 
tested  to  determine  whether  execution  control  is  passed 
to  the  two  remaining  overlays  of  the  Code  Auditor.  NPA, 
a binary  variable,  is  set  as  the  result  of  user  option 
card  input.  It  declares  the  user's  desire  to  audit  or  not 
audit  the  input  code  for  adherence  to  'structured  program' 
requirements.  Additionally,  MAINLD  performs  rewind  functions 
for  Code  Auditor  files. 
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Subroutine  FAUDIT 


Called  by:  MAINLD 

Subroutines  called:  ADCCD;  ADINP;  ADERR;  ADSTA;  ADCON; 

GETWRD;  ADSTR;  ADCOL;  ADDAT;  ADIMP; 

TYPES;  ADDOL;  ADIOE;  ADRAY;  ADGOT; 

ADIFS;  ADEND;  ARGU;  ADMIX;  ADTRM 

Functional  Description  - FAUDIT  is  the  main  control  routine 
for  Overlay  A of  the  RADC  FORTRAN  Code  Auditor.  Overlay  A 
examines  user's  source  code  for  adherence  to  the  RADC  coding 
standards.  Subsequent  to  calls  to  ADCCD,  a subroutine  which 
reads  and  processes  the  user's  option  card,  and  ADINP,  which 
reads  the  user's  source  input,  FAUDIT  performs  nominal  syntax 
analysis  and  via  calls  to  GETWRD  extracts  source  statement 
keywords . 

Upon  making  keyword  interpretations,  FAUDIT  either  internally 
or  via  calls  to  appropriate  subordinate  routines,  checks  source 
input  statements  for  adherence  to  RADC  coding  standards.  It 
should  be  noted  that  upon  return  from  ADCCD,  the  option  card 
processor,  the  "COMMON"  resident  variable  NCA  is  tested  to 
determine  whether  Overlay  A processing  should  continue. 


2.2.3 


Block  Data  Subprograms  - ADCOD,  ADC0D1 , and  ECA 


Functional  Description  - Data  is  entered  into  Overlay  A 
labeled  "COMMON"  areas  prior  to  Overlay  A execution  by  the 
use  of  BLOCK  DATA  subprograms  ADCOD,  ADC0D1 , and  ECA. 

2.2.4  Subroutine  AD DAT 

Called  by:  FAUDIT;  ADCOL 

Subroutine  called:  ADERR 

File:  IOUTP 

Functional  Description  - ADDAT  is  called  into  execution  to 
process  variables  contained  in  various  declarative  statements 
within  the  user's  source  input.  If  the  declarative  is  a 
"COMMON"  statement,  the  total  length  of  the  "COMMON"  block  is 
computed  and  returned  via  the  "COMMON"  resident  variable  I DIM  - 

For  other  declaratives,  "REAL",  "DIMENSION",  "INTEGER",  etc., 
the  dimension  of  each  variable  referenced  is  computed,  the 
variable  name  checked  for  previous  declaration  (coding  standard 
#10),  and  the  name,  dimension,  and  type  of  each  variable  is 
stored  in  the  array  JTAB. 
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Subroutine  ADIFS 


Cal  let  by:  FAUDIT 

Subroutine  called:  ADRAY 

Functional  Description  - ADIFS  performs  the  function  of 
isolating  the  'predicate'  portion  of  an  "IF"  expression 
from  the  'consequent'  portion.  It  does  this  by  beginning 
at  the  leftmost  left  parenthesis  of  the  expression,  counting 
all  parenthesis  in  a left  to  right  scan,  and  flagging  the 
appropriate  right  parenthesis  when  the  number  of  left 
parentheses  match  the  number  of  right  parentheses.  During 
processing,  subroutine  ADRAY  is  called  to  determine  if  a 
left  or  right  parenthesis  encountered  is  imbedded  within  a 
hollerith  string;  if  so,  the  parenthesis  is  ignored.  The 
"COMMON"  resident  variable  JJ  identifies  the  position  in 
STATMT  (an  array  containing  the  source  statement  image) 
containing  the  appropriate  parenthesis  delimiting  the 
'predicate'  of  the  "IF"  statement  from  the  'consequent' 
portion. 


14 


2.2.6  Subroutine  ADEND 

Called  by:  FAUDIT 

File:  I0UTP 

Functional  Description  - ADEND  is  called  into  execution 
whenever  a FORTRAN  "END"  card  is  encountered  in  the  user’s 
source  code.  Module  summary  reports,  including  error 
identification,  are  formatted  and  printed.  Various  variaoles 
and  arrays  are  cleared  or  initialized  in  preparation  for  the 
processing  of  the  next  module  of  the  user's  source  input. 

2.2.7  Subroutine  ADGOT 

Called  by:  FAUDIT 

Subroutine  called:  ADERR 

Functional  Description  - ADGOT  is  called  into  execution 
whenever  the  keyword  "GOTO"  is  encountered. 

If  the  character  is  a left  parenthesis,  indicating  a 
computed  "GOTO",  the  indexing  variable  is  isolated  and 
checked  to  determine  if  its  value  was  checked  prior  to 
its  use  in  the  computed  "GOTO"  statement  (standard  #23). 

If  the  character  is  alphabetic,  indicating  an  assigned 
"GOTO”,  and  the  source  input  is  real-time  code,  the  statement 
is  flagged  as  having  violated  standard  #28  (no  assigned 
"GOTO's"  in  real-time  programs). 
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2.2.8  Subroutine  ADIMP 

Called  by:  FAUDIT 

Subroutine  called:  ADIMP 

Functional  Description  - ADIMP  gains  execution  control 
when  "IMPLICIT"  statements  are  encountered  within  the 
user's  source  code.  ADIMP  determines  the  declaration 
type  and  assigns  a numeric  code  as  follows. 


TYPE 

"INTEGER" 

"DOUBLE  PRECISION" 
"REAL" 

"COMPLEX" 

"LOGICAL" 


NUMERIC  CODE 
1 
2 

3 

4 

5 


Upon  establishing  the  appropriate  numeric  code,  the 
remainder  of  the  declaration  statement  is  scanned  to 
identify  the  alphabetic  characters  implicitly  declared. 

The  array  IMP!,  containing  one  storage  location  for  each 
letter  of  the  alphabet,  has  corresponding  cells  assigned  to 
the  numeric  value  established. 
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2.2.9 


Subroutine  ADIOE 


2.2.10 


Called  by:  F AUDIT 

Subroutines  called:  GETV1RD;  ADERR 

Functional  Description  - The  logical  device  name  for  all 
input/output  statements  is  examined  by  ADIOE  to  determine 
if  the  variable  name  is  either  implicitly  or  explicitly 
declared  as  integer  (standard  *22). 

Subroutine  ADMIX 
Called  by:  FAUDIT 

Subroutines  called:  GETWRD;  ADERR;  NTYPE  (LI,  L2);  ADIFS 

Functional  Description  - ADMIX  examines  arithmetic 
expressions  for  adherence  to  coding  standard  -14  (no  mixed 
mode  expressions  on  right  hand  side  of  an  equate).  ADM?x 
isolates  all  variable  names  in  the  right-hand  expression 
and  via  function  subprogram  NTYPE  determines  each  variables 
declared  type. 

Upon  encountering  two  variable  names  with  differing  types, 
the  statement  is  flagged  indicating  violation  of  coding 


standard  #14. 
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2.2.11  Subroutine  ADRAY  t 

Called  by:  ADIFS;  FAUDIT 

Subroutine  called:  ADRY1 

Functional  Description  - ADRAY  is  called  to  process 
character  strings  (variable  names  or  hollerith  strings). 

If  the  input  variable  ITEST  has  a value  greater  than  zero, 
the  value  is  used  by  ADRAY  to  select  the  contents  of  an 
array  element  from  STATMT  and  determine  if  the  contents 
are  contained  within  a hollerith  string  (IH0LT=1).  The 
array,  STATMT,  contains  the  current  source  statement 
being  processed.  For  values  of  ITEST  equal  to  zero,  a call 
is  made  to  ADRY1  to  further  process  a variable  or  array  name. 

2.2.12  Subroutine  ADCCD 

Called  by:  FAUDIT 

Files:  INPUT,  IOUTP 

Functional  Description  - ADCCD  processes  the  user  option 
card  input  and  sets  or  defaults  "COMMON"  resident  flags 
indicating  program  control  options.  The  following  table 
depicts  user  input  character  strings,  corresponding  flag 
settings  and  their  meanings. 
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INPUT 

CHARACTER 

STRING 


FLAG 

VARIABLE 

NAME 


FLAG 

SETTING 


MEANING 


NOLIST 


JLST 


REAL 


I REAL 


NOCA 


NCA 


NOSTRUCT 


NPA 


xx 


NRES(xx) 


Where  xx  is  any 
number  between 
1 and  37 
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Directs  the  Code  Auditor  to 
limit  the  source  code  listing 
to  only  those  statements  con- 
taining audit  errors  in 
addition  to  summary  reports. 
The  default  is  a full  listing 
of  all  input  source  code 
( JLST=1 ) 


Indicates  real-time  input 
source  code.  The  default 
is  non  real-time  input 
( IREAL=0) 


Directs  the  Code  Auditor  to 
refrain  from  auditing  any 
coding  standards.  The 
default  condition  is  all 
coding  standards  are 
audited 
(NCA=0) 


Directs  the  Code  Auditor  to 
refrain  from  auditing  for 
"structured  program"  re- 
quirements. The  default 
condition  is  to  conduct  a 
"structured  program"  audit 
(NPA=0) 


Suppress  auditing  for  coding 
standard  xx 


2.2.13  Subroutine  AOCON 


Called  by:  FAUDIT 

Subroutine  called:  ADERR 

Functional  Description  - ADCON  examines  the  array  COL  which 
contains  an  input  source  statement  and  all  of  its  continuations, 
for  adherence  to  coding  standard  #4  (continuation  sequence 
numbers  to  be  1-9,  A-J).  The  extracted  continuation  sequence 
numbers  are  compared  with  constant  arrays  DIGIT  and  ALPH 
to  verify  standard  conformance. 

2.2.14  Subroutine  ADCOL 
Called  by:  FAUDIT 

Subroutines  called:  ADERR;  ADDAT 

Functional  Description  - ADCOL  is  called  into  execution  by 
FAUDIT,  upon  encountering  a "COMMON”  declarative  within  the 
user's  source  code.  Upon  entry,  it  insures  that  all  program 
"COMMON'S"  are  labeled  "COMMON'S"  (standard  #25).  Subroutine 
ADCOL  computes  the  "COMMON"  block's  length  and  determines  if 
there  are  other  declaratives  which  reference  "COMMON"  block 
variables.  Upon  return  from  subroutine  ADDAT,  ADCOL  takes  one 
of  two  actions.  If  the  "COMMON"  statement  is  unlabeled,  control 
is  returned  to  the  calling  driver,  FAUDIT.  If  the  "COMMON" 
statement  is  labeled,  the  "COMMON"  name  and  its  corresponding 
length  are  checked  against  previously  stored  "COMMON"  block 
names  and  lengths  to  insure  adherence  to  coding  standard  #24 
("COMMON"  block  length  must  be  the  same  in  all  modules). 
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2.2.15  Subrou^ne  ADDOL 


Called  by:  FAUDIT 

Subroutine  called:  ADERR 


Functional  Description  - ADDOL  saves  the  "DO"  labels  of  all 
active  "DO"  statements.  Whenever  a "DO"  statement  is 
detected  by  FAUDIT,  ADDOL  is  called  into  execution  and  saves 
the  terminating  label  of  the  "00".  The  active  "DO"  counter, 
NDO,  is  incremented  by  one.  Whenever  the  cabling  module, 
FAUDIT,  encounters  a labeled  statement,  the  label  value  is 
compared  with  those  saved  by  ADDOL.  Upon  finding  a match, 
the  active  "DO"  counter,  NDO,  is  decremented.  Coding  standard 
#18  ("DO"  loop  nests  must  not  exceed  six  levels)  is  violated 
whenever  NDO  exceeds  six. 
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2.2.16  Subroutine  ADRY1 


Called  by:  ADRAV 

Subroutines  called:  ADRY3;  ADRY2 

Functional  Description  - The  statement  array  STATMT  and 
"COMMON"  resident  delimiters  I N IT  and  ISTOP  identify  a 
character  string  to  be  processed  by  ADRY1 . The  character 
string  is  compared  with  entries  in  arrays  1 1 VAR , JJVAR,  LLVAR, 
KKVAR,  and  MMVAR  to  determine  if  the  variable  or  array  name 
presented  is  "INTEGER",  "REAL",  "LOGICAL",  "DOUBLE  PRECISION", 
or  "COMPLEX"  respectively.  Upon  determining  the  declared 
variable  or  array  type,  a corresponding  numeric  code  is  assigned 
(IA),  the  index  of  the  appropriate  array  is  established  (IB), 
and  subroutines  ADRY3  and  conditionally  ADRY2  are  called  to 
further  process  the  string. 
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2.2.17  Subroutine  ADRY2 
Called  by:  ADRY1 

Subroutine  called:  ADERR 

Functional  Description  - ADRY2  is  called  by  ADRY1  to  process 
a variable  name  if  it  has  been  determined  that  the  variable  name 
is  an  array.  ADRY1 1 s prior  call  to  ADRY3  determines  if  the 
variable  name,  is  an  array,  i.e.,  has  subscripts.  ADRY2  scans 
for  a left  parenthesis  following  the  variable  name  to  insure 
adherence  to  coding  standard  #26  (never  omit  subscripts 
except  in  "CALL",  "I/O",  or  "DATA"  statements).  Additionally 
ADRY2  isolates  and  checks  each  subscript  element  for  adherence  to 
coding  standard  #8  (use  integer  subscripts  when  referencing  an 
array). 

2.2.18  Subroutine  ADRY3 
Called  by:  ADRY1 

Functional  Description  - The  "COMMON"  resident  variable  IA, 
set  in  ADRY1 , declares  the  type  of  the  variable  to  be 
examined  by  ADRY3.  Correspondingly,  the  appropriate  array 
(IVAR,  JVAR,  KVAR,  LVAR,  or  MVAR)  is  examined  to  determine 
the  number  of  subscripts  (ISUB)  declared  for  the  variable. 
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2.2.19  Subroutine  ADSTA 


Called  by:  FAUDIT 

Subroutine  called:  ADERR 

Functional  Description  - ADSTA  is  called  each  time  a 
labeled  statement  is  encountered.  The  numeric  value  of  the 
statement  label  is  stored  in  NUMB2  and  compared  with  NUMB! , 
the  last  legal  statement  label  encountered.  If  NUMB2  is 
less  than  NUMB1 , the  statement  is  flagged  as  violating  coding 
standard  *3  (statement  labels  shall  be  assigned  in  ascending 
order).  If  NUMB2  is  greater  than  NUMB1 , then  NUMB2's  value 
is  assigned  to  NUMB1  prior  to  release  of  execution  control. 

2.2.20  Subroutine  ADSTR 
Called  by:  FAUDIT 

Subroutine  called:  GETWRD 
File:  I0UTP 

Functional  Description  - ADSTR  is  called  for  each  module  of 
the  user's  source  code  processed,  specifically,  the  "SUBROUTINE" 
or  "FUNCTION"  identifying  statements.  The  module  name  is  stored 
in  array  PROGNM  and  the  module  counter,  NDEX,  is  incremented 
by  one  and  tested  for  a value  in  excess  of  100.  An  appropriate 
error  message  is  printed  for  values  greater  than  100. 
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2.2.21  Subroutine  ARGU 


Called  by:  FAUDIT 

Subroutines  called:  GETWRD;  ADERR 

Functional  Description  - ARGU  examines  the  argument  list  of 
"CALL"  statements  to  insure  that  the  list  is  devoid  of  arithmetic 
or  logical  expressions. 

2.2.22  Subroutine  GETWRD 

Called  by:  FAUDIT;  ADIMP;  ADIOE;  ADMIX;  ADSTR;  ARGU 

Functional  Description  - GETWRD  accepts  as  input  the  "COMMON 
resident  pointer  JSAVE  and  scans  the  array  STATMT  from  that 
point  until  a delimiter  is  encountered.  The  contained  character 
string  is  "ENCODED"  into  the  variable  STATE  prior  to  return  of 
execution  control . 


2.2.23  Function  Subprogram  NTYPE 
Called  by:  ADMIX 


Functional  Description  - Via  "FUNCTION”  formal  parameters  LI  and 
L2,  (variable  name  delimiters)  NTYPE  determines  the  variable  type 
for  subsequent  processing  by  subroutine  ADMIX . The  numeric  values 
assigned  per  variable  type  are  as  follows: 


VARIABLE  TYPE 
"INTEGER" 

"DOUBLE  PRECISION" 
"REAL" 

"COMPLEX" 

"LOGICAL" 


NUMERIC  CODE 
1 
2 

3 

4 

5 
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2.2.24  Subroutine  EXPON 


2.2.25 


2.2.26 


Called  by:  FAUDIT 

Subroutine  called:  ADERR 

Functional  Description  - EXPON ' s formal  parameter,  IX,  points  to 
an  exponent  to  be  examined.  EXPON  scans  the  array  STATMT  in 
search  of  a hollerith  period,  indicating  non-conformance  with 
coding  standard  #15  (whole  numbers  used  as  exponents  must  be 
integer).  The  scan  is  terminated  upon  encountering  a special 
character  and  control  is  returned  to  the  calling  program, 

FAUDIT. 

Subroutine  TYPES 
Called  by:  FAUDIT 

Subroutine  called:  ADERR 

File:  IOJTP 

Functional  Description  - TYPES  classifies  the  variables  of 
assignment  expressions  according  to  the  contents  of  various 
arrays  initialized  during  declaration  statement  processing. 

Subroutine  ADERR 

Called  by:  FAUDIT;  ADDAT;  ADGOT ; ADIOE;  ADMIX;  ADCON;  ADCOL; 

ADDOL;  ADRY2 ; ADSTA;  ARGU;  EXPON;  TYPES 

File:  IOUTP 

Functional  Description  - ADERR  accepts  the  input  variable 
NUMERR,  an  integer  identifying  a coding  standard  which  has 
been  violated.  ADERR  prints  the  error  identification  and 
updates  the  appropriate  error  counters. 


w 


26 


2.2.27  Subroutine  ADI NP 

Called  by:  FAUDIT 

Files:  NTAPE , IOUTP 

Functional  Description  - ADINP  is  the  input  routine  for 
the  user's  source  code.  It  maintains  two  "COMMON"  resident 
storage  buffers,  COL  and  STATMT,  and  associated  pointers, 

ISTART,  IEND,  and  INXX.  COL  is  initially  loaded  with 
twenty  user  source  card  images.  It  is  sized  such  that  it 
may  contain  a FORTRAN  source  statement  and  all  of  its 
continuation  cards  (19  maximum).  The  pointers  ISTART  and 
IEND  delimit  a source  statement  and  its  continuations  for 
further  processing  by  Code  Auditor  modules.  As  each  source 
statement  is  processed,  ISTART  and  IEND  are  adjusted  by 
ADINP  to  delimit  the  next  source  statement  to  be  processed. 

In  the  event  that  IEND  points  to  the  twentieth  entry  of  COL 
and  that  entry  is  a continuation  card,  the  buffer  COL  is 
reallocated  by  moving  the  delimited  statement  to  position  1 
of  COL  and  additional  cards  are  read  into  the  buffer.  IEND 
is  then  re-computed  to  provide  the  upper  pointer  for  the 
source  statement.  The  buffer  STATMT  contains  the  source 
statement  delimited  by  ISTART  and  IEND  exclusive  of  its  label, 
if  any.  All  blanks  are  removed  and  the  pointer  INXX  is  set 
to  the  last  character  of  the  source  statement  within  the 
single-dimensioned  buffer. 

i 
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2.2.28  Subroutine  ADTRM 


Called  by:  FAUDIT 

File:  IOUTP 

Functional  Description  - ADTRM  is  called  at  the  conclusion  of 
Overlay  A processing  and  prints  summary  reports  for  that  pro- 
cessing phase  of  Code  Auditor  which  examines  the  user's  code  for 
adherence  to  program  coding  standards. 

2.2.29  Subroutine  AUDIT 

Called  by:  MAINLD 

Subroutines  called:  INITAL  (MI3PQ,  IALLFG,  LASTSB,  LENGTH,  VSTR); 

REINIT  (IBDATA,  LSTSEG,  VSTR,  LENGTH,  ITSTX, 

I DONE ) ; TABGEN  (VSTR);  PCARD1  (NUMCOM,  I DONE, 
ISW) ; RCARDN  ( IDONE,  NUMCOM,  ISW);  PCARDN 
( ILAST,  ITH IS,  ITSTX,  IBDATA,  MI3PQ) ; TRAPIT 
(VSTR,  MIRPLS) ; NINSTR  (c);  ENDPRC  (VSTR); 
TERMIN  (VSTR) 

File:  OLDSRC 

Functional  Description  - AUDIT  either  directly  or  indirectly 
controls  and  sequences  the  execution  of  all  other  subprograms 
of  Overlay  B of  the  Code  Auditor. 

2.2.30  Subroutine  ADJUST 

Called  by:  STLBL;  ENDPRC 

Parameters:  I,  VSTR 

File:  06 

Functional  Description  - ADJUST  dynamically  reallocates  VSTR 
storage  assignments  for  sub-tables  SEGTAB,  SEGBT,  and  SEGBF. 
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Subroutine  ASSIGN 


Called  by:  RE  IN  IT 

Parameters:  VSTR,  LENGTH 

File:  06 


Functional  description  - Code  Auditor  uses  the  single- 
dimensioned  array  VSTR  to  dynamically  allocate  storage 
space  for  the  three  sub-tables,  SEGTAB,  SEGBF,  SEGBT. 

A pass-one  inspection  of  a user's  source  module  by  the 
Code  Auditor  results  in  a determination  of  the  number 
of  logical  segments  within  the  module.  This  figure  is 
used  by  ASSIGN  to  allocate  space  for  each  of  the  three 
sub-tables.  Sub-table  SEGBF  may  have  its  space  reallo- 
cated since  SEGBT  receives  its  entries  after  SEGBF  is 
compl eted. 


2.2.32  Block  Data  Subprograms  BLK1 , BLK2,  BLK3,  BLK4,  and  BLKCHR 

Functional  Description  - Data  is  entered  into  Overlay  B 
labeled  "COMMON"  areas  prior  to  Overlay  B execution  by  the 
use  of  "BLOCK  DATA"  subprograms  BLK1 , BLK2,  BLK3,  BLK4,  and 
BLKCHR. 


2.2.33  Subroutine  BUILD 
Called  by:  STNTBL 

Parameters:  NAME,  NEWNAM 


Functional  Description  - BUILD  packs  the  8 position  character 
array  NAME,  into  the  single  variable  NEWNAM,  left  justified, 
blank-filled. 
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2.2.34  Subroutine  CLENUP 


Called  by:  ENDPRC 

Parameters:  SEGTAB,  SEGBT,  SEGBF,  IDIFF 

File:  KPR 

Functional  Description  - CLENUP  processes  VSTR's  sub-table 
SEGBT,  containing  segment  identification  of  segments  branched- 
to,  to  generate  entries  for  SEGBF,  which  contains  segment 
identification  of  segments  branched-from. 

2.2.35  Subroutine  DOPROG 
Called  by:  TABGEN 

File:  KPR 

Functional  Description  - DOPROG  is  called  into  execution  for 
each  "DO"  statement  encountered.  The  statement  is  scanned 
and  its  "DO"  termination  label  is  extracted  and  stored  in 
the  array  IDOXPT.  IDOXPT  also  contains  the  corresponding 
segment  identification. 


2. 2.36  Subroutine  SBXPRG 


Called  by:  TABGEN 

Parameters:  LINE,  SEGTAB,  SEGBT,  BETAB,  NEWEND 

Subroutines  called:  ADJUST  (c);  IFCK  (LINE, I);  STLBL  (LINE,  K, 

SEGBT,  SEGTAB,  NEWEND) 

File:  06 

Functional  Description  - SBXPRG  processes  the  segment's  'exit' 
statement  and  stores  the  branch  type  and  branch-to  entries  of 
array  SEGTAB. 

2.2.37  Subroutine  STLBL 

Called  by:  SBXPRG; 

Parameters:  LINE,  J,  SEGBT,  SEFTAB,  NEWEND 

Subroutines  called:  ADJUST  (c);  BCD I NT  (LINE,  J,  KWORD,  N) 

Functional  Description  - Branch  statements  such  as  "GOTO's" 
and  computed  "GOTO's"  have  their  labels  stored  in  the  array 
SEGBT  by  STLBL.  The  label  value,  converted  from  hollerith 
to  integer  by  the  subroutine  BCDINT,  is  stored  as  a negative 
value  for  subsequent  replacement  with  segment  identification 
codes  by  subroutine  CLENUP. 
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2.2.38  Subroutine  TABGEN 


Called  by:  AUDIT;  ENDPRC;  TAPWRI 

Parameter;  VSTR 

Subroutines  called:  IFCK  (NLINE2,  J) ; TYPCVT  (I,  STYPE,  NI.INE2,  J, 

NCHARShlNITSG  ( I FLAG,  NUMBR1  , ISUB,  VSTR, 
NSGTAB);  REREAD  (NLINE2,  NLINE1 , NUMBER, 

NUMBR1 , NUMBR2,  ITYP,  IFTYP,  IFLAG);  DQPROG; 
SRXPRG  (NLINE2,  INDEX,  VSTR,  NSGTAB,  VSTR, 
NSEGBT,  MBETAB , NEWEND) 

File:  06 

Functional  Description  - TABGEN  provides  the  driver  function 
for  the  generation  of  SEGTAB,  the  Program's  Anatomy  Table. 

2.2.39  Subroutine  TAPWRT,  TPEOF  (entry) 

Called  by:  ENDPRC 

Parameters:  SEGTAB,  VSTR 

File:  KSEGBT 

Functional  Description  - TAPWRT  writes  the  Segment  Transfer 
Table  to  a temporary  disk  file  for  subsequent  processing  by 
Overlay  C. 

2.2.40  Subroutine  UNBILD 

Called  by:  KT2ND 

Parameters:  NAME,  NEWNAM 

Functional  Description  - UNBILD  unpacks  the  formal  parameter 
NAME  into  the  formal  array  NEWNAM. 
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2.2.41  Subroutine  TYPCVT 

Called  by:  TABGEN 

Parameters:  ITYP,  STYPE,  IBUFF,  IEND 

File:  06 

Functional  Description  - TYPCVT  converts  numeric  type  assign- 
ments from  those  required  by  the  first  pass  to  those  required 
by  the  second  pass. 

2.2.42  Subroutine  INITSG 

Called  by:  TABGEN 

Parameters:  IFLAG,  NliMBRl  , NAME,  SEGTAB 

File:  KPR 

Functional  Description  - INITSG  performs  initialization  procedures 
for  each  segment  of  a program  module.  Parameters1  descriptive  of 
each  segment  are  stored  in  the  sub-table  SEGTAB. 

2.2.43  Subroutine  REREAD 

Called  by:  TABGEN;  PCARD1 

Parameters:  NLINE2,  NLINE1  , NUMBER,  NUMBR1 , NUMBR2,  ITYP,  IFTYP, 

IFLAG,  STYPE,  IOPT 

Functional  Description  - REREAD  processes  source  statements  as 
follows  depending  upon  the  formal  switch  parameter  IOPT.  If 
IOPT  = 0,  the  current  source  statement,  in  packed  and  unpacked 
format,  is  stored  along  with  various  characteristics  of  the  state- 
ment. If  IOPT  = 1,  REREAD  additionally  stores  the  previous  source 
statement  and  its  characteristics. 
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2.2.44  Subroutine  POINTR 


I 
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2.2.45 


2.2.46 


Called  by:  PASS1_;  REINIT 

Parameters:  IPACK,  IMASK,  IOPT,  N1 , N2 

File:  06 

Functional  Description  - Depending  upon  the  formal  parameter 
IOPT,  POINTR  uses  the  mask,  MASK, to  pack  the  formal  parameters 
N1  and  N2  into  the  single-dimensioned  variable  IPACK  (I0PT=2), 
or  unpack  from  IPACK  to  N1  and  N2  (I0PT^2). 

Sub. outine  NINSTR 

Called  by:  AUDIT;  IFTRAP ; PASS! ; TRAPIT;  DQTERM;  PCARDN 

Parameter:  IOPT 

Subroutine  called:  WRND 

Functional  Description  - NINSTR  maintains  and  assigns  segment 
identification  codes  for  user  source  code. 

Subroutine  IFTRAP 
Called  by:  TRAPIT 

Parameter:  I FLAG 

Subroutines  called:  IFCK  (CARE,  ISOS);  TYPE  (CARE,  ISOS,  JTYPE , 

IFTYP,  c);  NINSTR  (c);  WRND 

Functional  Description  - IFTRAP  processes  "IF"  statements  and 
makes  appropriate  subroutine  calls  for  'consequent'  statement 
type  determination  and  segment  identification  code  assignment. 

1 
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2.2.47  Subroutine  PASS! 

Called  by:  INITAL 

Parameters:  VSTR,  IALLFG,  ISUBKNT 

Subroutines  called:  BCDINT  (TEMP,  NOS, I);  SQZB  (CARD,  c,  I END, 

CARE,  ISQEND) ; TYPE  (CARE,  JTYPE,  ITYP,  ITSTX); 

NINSTR  (c);  TRAPIT  (VSTR,  MIRPLC);  KTGEN  (c,  NODE,  1NOD' 

Files:  OLDSRC,  KPR 

Functional  Description  - Via  calls  to  subroutines  SQZB,  TYPE, 

NINSTR,  TRAPIT  and  KTGEN,  PASS1  performs  the  initial  pass 
over  the  user's  source  code.  It  inputs  each  source  statement, 
removes  all  blanks  (SQZB) , determines  the  statement  type  (TYPE) , 
identifies  segment  'entry'  statements  and  assigns  a segment 
number  accordingly  (NINSTR  and  TRAPIT) . 


2.2.48  Subroutine  STNTBL 

Called  by:  TRAPIT;  PCARDN 

Subroutines  called:  BUILD  (NAM,  KKTAB,  JNOD);  KTGEN  (c,  NODE, 

JNOD) ; KT2ND  (NAM,  LNODE,  NNODE,  JNOD,  c) 

Functional  Description  - STNTBL  is  called  for  every  new 
subprogram  module  encountered.  It  uses  the  utility  sub- 
routine BUILD  to  store  the  module  name  in  the  array  KTAB 
(KKTAB  equivalenced) , in  addition  to  the  ending  segment 
number  for  the  previous  module  and  the  beginning  segment 
number  for  the  current  module  (via  KTGEN  and  KT2ND) . 

I I 
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2.2.49  Subroutine  TRAPIT 


Called  by:  AUDIT;  PASS1 

Parameter:  IREPLC 

Subroutines  called:  NINSTR  (c);  STNTBL;  WRND;  IFTRAP  (IFLAG) 

File:  06 

Functional  Description  - Depending  upon  statement  classifica- 
tion ( ITYP),  TRAPIT  branches  accordingly  performing  the  following 
function: 

(1)  For  "SUBROUTINE"  or  "FUNCTION"  statements,  the  module 
is  stored  via  call  to  STNTBL. 

(2)  For  all  statements  identified  as  segment  'entry' 
statements,  node  (segment)  numbers  are  assigned 

(3)  "DO"  statements  are  processed. 

2.2.50  Subroutine  WRND 

Called  by:  NINSTR;  IFTRAP;  TRAPIT 

Functional  Description  - WRND  increments  assigned  node 
(segment  'entry'  statement)  numbers  upon  each  call. 

2.2.51  Subroutine  KTGEN 

Called  by:  PASS! ; STNTBL 

Parameters:  LNODE,  NNODE,  JNOD 

Functional  Description  - For  each  module  processed  during 
pass  one,  KTGEN  stores  the  module  name  and  delimiting  segment 


numbers  in  the  array  KTAB. 


2.2.52  Subroutine  KT2ND 


Called  by:  STNTBL 

Parameters:  NAM,  LNODE,  NNODE,  JNOD,  IOPT 

Subroutine  called:  UNBILD  (KKTAB,  JNOD,  NAM) 

Functional  Description  - Via  a subroutine  call  to  UNBILD, 
KT2ND  extracts  from  the  array  KTAB  (KKTAB  equi valenced)  the 
name  (NAM)  of  the  module  which  has  just  undergone  pass  one 
processing.  In  addition,  the  delimiting  segment  numbers  for 
the  module  are  stored  in  formal  paramters  NNODE  and  LNODE 
respectively. 

2.2.53  Subroutine  DOTERM 
Called  by:  TRAP IT 

Parameters:  PROC,  IREPLC,  J 

Subroutine  called:  NINSTR  (c) 

Functional  Description  - DOTERM  matches  labels  of  "DO" 
terminators  with  values  saved  in  the  array  IREPLC.  IREPLC 
contains  "DO"  terminator  values  established  when  "DO"  state- 
ments are  processed. 
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2.2.54  Subroutine  INITAL 

Called  by:  AUDIT 

Parameters:  MI 3PQ , IALLFG,  LASTSB , LENGTH,  VSTR 

Subroutine  called:  PAS SI  ( VSTR,  IALLFG,  ISUBKNT) 

File:  OLDSRC 

Functional  Description  - Via  call  to  subroutine  PASS!  and 
internal  assignment  expressions,  INITAL  provides  system  initi- 
alization and  the  initial  pass  over  the  user's  source  code. 

2.2.55  Subroutine  PCARD1 

Called  by:  AUDIT 

Parameters:  NUMCOM,  I DONE,  ISW 

Subroutines  called:  REREAD  (CARE,  CARD,  NOS,  NUMBR1 , NUMBR2, 

ITYP , IFTYP,  I FLAG,  STYPE,  c);  BCDINT  (TEMP, 
NOS,  I) 

File:  KPR 

Functional  Description  - PCARD1  prints  the  current  statement 
header  card  image  and  where  required,  any  node  (segment  'entry' 
statement)  numbers.  The  printer  header  is  subsequently  trans- 
ferred from  array  TEMP  to  CARD  for  subsequent  packing.  All 
labeled  statements  have  their  labels  converted  to  integer 
and  stored  in  the  "COMMON"  resident  variable,  NOS. 
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2.2.56 


Subroutine  PCARDN 


Called  by:  AUDIT 

Parameters:  HAST,  ITHIS,  ITSTX,  IBDATA,  MI3PQ 

Subroutines  called:  SQZB  (CARD,  c,  IEND,  CARE,  ISQEND); 

TYPE  (CARE,  JTYPE,  ITYP,  ITSTX);  NINSTR 
(c);  STMTBL 

Functional  Description  - PCARDN  packs  the  current  user's  source 
statement  via  a subroutine  call  to  SQZR  The  input  statement 
image,  unpacked,  resides  in  the  array  CARD  prior  to  the  SQZB 
call,  delimited  by  the  argument  IEND.  Upon  return  of  execution 
control  from  SQZB,  the  current  statement  image  resides  in 
the  array  CARE,  packed,  delimited  by  the  argument  ISQEND. 

A subsequent  call  to  subroutine  TYPE  returns  numeric  codes 
indicative  of  statement  type  (JTYPE),  classification  (ITYP), 
and  whether  the  statement  is  the  first  executable  statement 
of  the  source  module  (ITSTX=Z).  if  the  current  statement 
is  within  a "BLOCK  DATA"  subprogram, i t is  ignored.  Likewise, 
an  "END"  statement  is  ignored.  If  the  statement  is  labeled 
it  is  designated  an  'entry'  statement  and  assigned  the  next 
sequential  node  number.  If  the  statement  is  the  initial  state- 
ment of  a module,  i.e.,  "FUNCTION",  "SUBROUTINE",  etc.,  it 
is  ignored. 
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2.2.57 


Subroutine  REINIT 


Called  by:  AUDIT 

Parameters:  IBDATA,  LSTSEG,  VSTR,  LENGTH,  ITSTX,  I DONE 

Subroutines  called:  POINTR  (VSTR,  I,  c,  II,  12);  ASSIGN 

(VSTR,  LENGTH) 

File:  KPR 

Functional  Description  - REINIT  performs  the  necessary  variable 
reinitialization  for  each  new  source  module  processed. 

2.2.58  Subroutine  TERMIN 

Called  by:  AUDIT 

Parameter:  VSTR 

Subroutine  called:  TAPWRT  (TPEOF) 

Functional  Description  - TERMIN  is  called  at  the  conclusion 
of  Overlay  B processing  to  write  an  end-of-file  record  on  the 
ten.porary  mass  storage  device  containing  Segment  Transfer 
Table. 

2.2.59  Subroutine  RCARDN 

Called  by:  AUDIT 

Parameters:  I DONE,  NUMCOM,  ISW 

File:  OLDSRC 

Functional  Description  - RCARDN  reads  continuation  cards  of  the 
current  statement  being  processed  by  Overlay  B of  the  Code  Auditor. 
Its  processing  includes  a feature  for  ignoring  command  cards 
imbedded  among  the  current  statement’s  continuation  cards. 
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2.2.60  Subroutine  ENDPRC 


Called  by:  AUDIT 

Parameter;  VSTR 

Subroutines  called:  TABGEN  (VSTR);  ADJUST  ( IDIFF,  VSTR);  CLENUC 

(VSTR,  MSGTAB,  MSEGBT,  MSEGBF,  IDIFF);  TAPWRT 
(VSTR,  MSGTAB) 

File:  06 

Functional  Description  - ENDPRC  is  called  into  execution  when- 
ever a FORTRAN  "END"  card  is  encountered.  It  tests  the  storage 
array  VSTR  for  the  last  entry  of  sub-table  SEGBT,  and  establishes 
the  next  available  storage  location  as  the  origin  for  sub-table 
SEGBF,  i.e.,  SEGBF's  space  is  dynamically  reallocated.  Sub- 
sequent calls  are  made  to  subroutine  CLENUP,  to  complete  VSTR 
table  entry,  and  TAPWRT,  to  write  selective  VSTR  table  entry, 
and  TAPWRT,  to  write  selective  VSTR  data  to  a temporary  mass 
storage  file  for  Overlay  C input. 

2.2.61  Subroutine  BCDINT 

Called  by:  PASS! ; PCARD1 ; STLBL;  TABGEN 

Parameters:  I BUFF , INTEG,  NEND 

Functional  Description  - BCDINT  accepts  as  input  the  formal 
parameters  IBUFF  and  NEND.  Its  function  is  to  examine  the  first 
NEND  characters  of  the  array  IBUFF  and  convert  the  hollerith 
string  of  numbers  to  its  integer  value.  If  the  hollerith 
string  contains  a non-digit  first  character,  the  parameter  NEND 
has  its  value  set  to  the  negative  of  the  character's  position  in 
IBUFF,  and  control  is  returned.  Otherwise,  the  numeric  value  of 
the  character  string  is  computed  and  returned  via  the  formal 
parameter  INTEG. 
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2.2.62  Subroutine  IFCK 


Called  by:  SBXPRG;  TABGEN;  IFTRAP 

Parameters:  IBUFF , LASTRP 

File:  06 

Functional  Description  - IFCK  accepts  as  input  the  array 
IBUFF  passed  as  a formal  parameter.  IBUFF  contains  the 
current  user  source  statement  being  processed.  IFCK  is 
called  into  execution  by  various  Code  Auditor  routines  to 
process  logical  "IF"  expressions.  IFCK  scans  the  array  in 
search  of  left  and  right  parentheses,  terminating  the  scan 
whenever  the  number  of  left  parentheses  encountered  match 
the  number  of  right  parentheses.  The  numeric  position  in 
IBUFF  of  the  appropriate  right  parenthesis  is  returned  via 
the  formal  parameter  LASTRP. 

2.2.63  Subroutine  SQZB 

Called  by:  PASS1 ; PCARDN 

Parameters:  II BUFF,  II BEG,  II END,  I2BUFF,  1 2 END 

File:  06 

Functional  Description  - SQZB's  input  formal  parameters, 

1 1 BUFF , 1 1 BEG , and  I1END  describe  a buffer  and  delimiters 
respectively  in  passing  a character  string  to  be  examined. 

The  character  string  contained  by  II BUFF  beginning  at  loca- 
tion 1 1 BEG  is  transferred  to  the  buffer  I2BUFF. 

Blank  characters  are  not  transferred.  Transfer  of  characters 
terminates  after  II END  characters  are  transferred.  1 2BUFF ' s entries 
begin  in  cell  1 and  terminates  in  cell  I2END. 
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2.2.64  Subroutine  TYPE 

Called  by:  PASS! ; PCARDN 

Parameters:  I BUFF,  JTYPE , ITYP,  ITSTX 

Subroutine  called:  I_FCK  ( IBUFF , LASTRP) 

Functional  Description  - TYPE  accepts  as  input  the  formal 
argument,  IBUFF,  containing  a packed  source  statement  (i.e., 
no  intervening  blanks)  for  type  determination.  The  first 
alphabetic  character  of  the  input  character  string  in  IBUFF 
is  used  to  generate  an  index,  subsequently  used  in  a computed 
"GOTO".  The  string  is  then  analyzed  for  the  presence  of  a 
FORTRAN  keyword.  Upon  finding  the  appropriate  keyword,  the 
formal  parameters,  JTYPE  and  ITYP  are  set  in  accordance  with 
the  following  tables.  JTYPE  is  an  integer  specifying  the 
statement  type  while  ITYP  specifies  the  statement  classification. 

JTYPE  ITYP  KEYWORD 


1 

0 

"ASSIGN" 

2 

0 

"BACKSPACE" 

3 

16 

"BLOCK  DATA 

4 

9 

"CALL" 

5 

8 

"CALL  EXIT" 

6 

0 

"COMMON" 

7 

0 

"COMPLEX" 

8 

13 

"CONTINUE" 

9 

0 

"DATA" 

10 

0 

"DECODE" 

11 

0 

"DIMENSION" 
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JTYPE 

ITYP 

KEYWORD 

12 

4 

’DO" 

13 

0 

"DOUBLE  PRECISION" 

14 

0 

"ENCODE" 

15 

3 

"END" 

16 

0 

"ENDFILE" 

17 

15 

"ENTRY" 

18 

0 

"EQUIVALENCE" 

19 

0 

"EXTERNAL" 

20 

2 

"FUNCTION" 

21 

1* 

"FORMAT" 

22 

7 

"GO  TO" 

23 

6 

"GO  TO"  (computed) 

24 

5 

"IF" 

25 

1 

"IMPLICIT" 

26 

0 

"INTEGER" 

27 

- 

NOT  USED 

28 

0 

"LOGICAL" 

29 

0 

"NAMELIST" 

30 

12 

“PRINT" 

31 

0 

"PARAMETER" 

32 

0 

"PUNCH" 

33 

12 

"READ" 

34 

0 

"REAL" 

35 

11 

"RETURN" 

36 

0 

"REWIND" 
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JTYPE 


ITYP 


KEYWORD 


37 

33 

39 

2.2.65  Subroutine  STRUCT 
Called  by:  MAINLD 

Subroutine  called:  LPEX 

Files:  KSEGBT,  KPR 

Functional  Description  - 


10  "STOP" 

2 "SUBROUTINE" 

12  "WRITE" 


STRUCT  accepts  as  input  the  Senment 


Transfer  Table  generated  in  Overlay  B and  applies  the  reduc- 
tion algorithm  to  make  a determination  of  the  corresponding 
module's  conformance  to  'structured  program'  requirements 

2.2.66  Subroutine  LPEX 

Called  by:  STRUCT 

Functional  Description  - LPEX  is  a sub-function  of  STRUCT 
and  it  verifies  a loop  as  having  more  than  one  exit. 


2.3  Major  System  Variables 


The  Major  System  Variables  are  described  in  two  groups,  labeled 
"COMMON"  (2.3.1)  and  blank  "COMMON"  (2.3.2). 

Four  labeled  "COMMON'S"  (AUDCOM,  BK0134,  BKFOUR,  and  BKZERO)  and 
their  associated  variables  are  further  defined  in  Tables  II  through 
V to  indicate  their  relationships  to  "EQUIVALENCED"  variables.  These 
"EQUIVALENCED"  variables  bear  the  functional  references  by  the 
various  modules  in  which  these  labeled  "COMMON'S"  occur. 

For  example:  Main  Program  - C0MM0N/X/A(5) 

EQUIVALENCE  (A(l),  B),  (A(2)  C),  (A(3)  D) 
CALL  SUB! 

STOP 

END 

SUBROUTINE  SUB! 

C0MM0N/X/A(5) 

EQUIVALENCE  (A(l),  R),  (A(4),  S) 

R = 5.0 
S = R*6.0 
RETURN 
END 

The  labeled  "COMMON" name  X provides  for  storage  of  the  associated 
array  variable  A.  The  associated  array  variable  A is  then 
"EQUIVALENCED"  to  individual  variables  for  subsequent  reference 
in  module  SUB1 . 

This  scheme  for  "COMMON"  definition  is  used  for  labeled  "COMMON'S" 
AUDCOM,  BK1034,  BKFOUR,  and  BKZERO  only.  The  associated  array 
variables  are  AUDCOM,  QAC0M5,  QAC0M4 , and  QACOMO,  respectively. 
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The  blank  "COMMON"  variables  IVAR,  JTAB,  JVAR,  KTAB,  KVAR,  LVAR, 
and  MVAR  are  "EQUIVALENCED"  to  structure  variables.  These 
"EQUIVALENCED"  structure  variables  are  superimposed  over  the 
subject  variables  to  facilitate  storage  reference  of  two  words. 

This  allows  capturing  routine  names  and  variable  names  which  may 
consist  of  a maximum  of  eight  characters.  Eight  characters  exceed 
the  character  storage  capacity  of  one  storage  word  thereby  re- 
quiring "CHARACTER"  typing  of  the  "EQUIVALENCED"  structure  variables 
to  twelve  enabling  reference  of  two  storage  words.  These  variables 
are  indicated  under  the  "EQUIVALENCED"  structure  variable  column  of 
the  blank  "COMMON"  (2.3.2)  paragraph. 

Some  of  the  RADC  Code  Auditor  variables  were  inactivated  due  to 
conversion.  These  variables  were  retained  in  the  code  to  allow 
easy  update  of  functions  stripped  during  conversion,  assuming  the 
potential  requirement  to  incorporate  the  functions  at  a later  date. 
These  variables  are  indicated  as  inactive. 
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FUNC  NTYPE  FUNC  Array  containing  "INTEGER"  FORTRAN  library 

subroutine  names. 
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it  is  embedded  in  hollerith;  ITEST  must  be 
zero  for  a call  which  is  not  making  a 
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Associated 

Label  Occurs  in  Routine  Variable(s)  Description 

KETIND  FAUDIT;  ADEND  KETIND  "RETURN"  indicator  containing  the  executable 
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i 


4-> 

CO 

3 

• 

to 

*3 

40 

o • 

_x 

40 

-X 

<u 

3 

4-  = 

CJ 

3 

CJ 

sz 

0) 

CD 

Lu 

O 

O 

o 

40 

-C 

• 

E 

>>•— 

ro 

r— 

r— 

• 

4-> 

40 

CD 

rO  = 

jQ 

40 

-Q 

co  *o 

U 

40 

3 

4- 

3 

c 3 

3 

CD 

ro 

3 r- 

O 

>> 

•r~ 

s 

•r*  fO 

o 

*»3 

40 

ro  ro 

3 

3 

Z 

• 

ro  CJ 

4- 

CD 

CO 

CJ 

CD  • 

ro 

CL 

£ 

(D 

40 

-i- 

a_^ 

40 

• 

C = 

“O 

CD 

CD 

2:  co 

• 

c : 

3 ^ 

3 

O h- 

0) 

CD 

r— 

o 

40  o 

CD 

O -O 

O 

“O 

<j  < 

3 

ro 

X) 

<C  •— 

40 

E 

S-  S- 

CJ 

o 

a> 

cl 

ro 

H 

CD  CD 

E 

3 ro 

z 

E 

• ••a: 

40 

40 

GO  ro 

-3 

O 

CD  U 

co  o 

c 

i — 

3 

40  #. 

u 

r~~ 

3 

X>  Lu 

3 

o 

CJ 

3 CO 

- 

S-  Z 

r— 

CD 

3 = 

O 

3 

CD 

•»-  ro 

cd  — ) 

4- 

o o 

fO 

Cl 

03 

CJ 

40 

X 

c 

O 

4-  *— i 

O 40 

c 

3 

CD 

3 "O 

•f-  LU 

\— 

4- 

to 

CO 

CD 

o 

O CD 

40  CC 

“O 

“O  D. 

O 

3 

= 3 

CJ 

4- 

•r—  *r— 

CJ  = 

3 

S-  O 

o 

h-  •«- 

CO 

O 

40  4- 

CD 

<0 

CD 

3 

§ ‘4~ 

■o 

O 

•r—  *r— 

Cl  * 

u o 

Kl 

3 

3 

40 

3 

CO  40 

CD  = 

to 

•r— 

CD 

Cd  cd 

* 3 

CD 

o c 

“O  Cd 

CD 

4-  E 

CO 

O -c 

O 

■O 

-Q 

CL  CD 

LU 

40 

O O 

4- 

U_  40 

CD 

E 

-D 

CD  cr 

ro 

s. 

CD 

O 

“ 

4- 

CO 

3 

40  •»— 

*—  LU 

CJ 

C 4- 

3 

4- 

O 

3 

3 

CO 

-Q  tl 

•r~ 

E , 

•t— 

40 

3 O 

rO  C 

ro 

“O 

3 O 

3 

c 

O 

3 

3 

CD 

r—  O 

•r—  « 

c 

r—  CJ 

•r— 

3 

4-  3 

CD 

CD 

-3 

• 

•p— 

3 = 

•r- 

o oj 

<o 

O 

<D 

jd 

40 

40 

CD 

O CO 



u o 

40  . 

u 

• 

3 -Q 

E 

• 

c 

r— 

40  CO 

> 

#< 

3 CD 

< D 

O E 

3 

CD 

3 

CO 

3 

CD 

CD 

O 

CD 

O r— 

CD 

> 

40  3 

3 * 

> 

O 

3 -O 

3 3 

3 f— 

C 3 

U 3 

3 

•r- 

03  3 

CD 

•»— 

CJ 

•r» 

O 

CD  Q- 

CD  X) 

II 

•r“  *r— 

X3 

•1— 

40 

U 

r“  i— 

40 

ro 

E 

40  X 

CD  <U 

40 

>»  o 

3 

•«-  “O 

ro  3 

U 

CD 

40 

C CD 

CD  *r- 

c 

3 40 

ro  E 

3 

ra 

-D  3 

40  -O 

rO 

c 

3 

3 

•r— 

40  3 

CD 

ro  CD 

3 

3 

c 

3 ro 

O O 

3 

•r“ 

o 

CD 

o c 

C ro 

x: 

40  to 

3 C 

a : 

•— * 

>*-«  u 

h-  E 

t—t 

— J 

o 

Q_ 

D-  ro 

►— < > 

3: 

oo  - — 

-f— 

CL 

h- 

Q 

CL 

h- 

> 

O 

Q- 

CL 

z 

Z 

h- 

z 

c 

LU 

33 

cn 

s: 

LU 

LU 

►— 1 

z 

z 

»— 

CJ 

c/> 

Q- 

H— 

LU 

v— 

21 

Cd 

ZJ 

d> 

r) 

0 

0 

>- 

C/) 

z 

O 

z 

O 

O 

0 

0 

0 

or 

CL 

3- 

C 

O 

id 

id 

id 

id 

id 

id 

id 

— J 

_J 

— 1 

LTYPE  FAUDIT ; ADMIX  LTYPE  Variable  containing  numeric  value  reauired  for 

indicating  a variable's  type. 


Labeled  "Commons'1  (Continued) 


NENTC  ADEND;  ADRY1 ; NTYPE ; TYPES  NENTC  Number  of  "COMPLEX"  variable  names. 
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2.4  MAJOR  SYSTEM  CONSTANTS 


Constant  Name 

IPLUS 

IMINUS 

IASTER 

I SLASH 

ILEFT 

IRGHT 

IDOLLR 

IBLANK 

I COMMA 

IPEROD 

LALPHA 

LCOMA 

LLPRN 

LRPRN 

LBLK 

LBLANK 

NUMO 

NUM 

NUM9 

MASK 


+ ' 


7* 

•S' 

Hollerith  blank 


The  26  lettersof  the  alphabet  in  Hollerith 
format 

I l 
9 

•C 

•)' 

Hollerith  blank 
Hollerith  blank 
Hollerith  zero 

The  digits  0 through  9 in  hollerith  format 
*9’ 

100,000 


METRIC  SYSTEM 


BASE  UMTS. 


Quantity 

Unit 

SI  Symbol 

lormult 

length 

metre 

m 

mass 

kilogram 

“g 

time 

second 

a 

electric  current 

ampere 

A 

thermodynamic  temperature 

kelvin 

K 

amount  of  substance 

mole 

mol 

luminous  intensity 

candela 

cd 

SUPPLEMENTARY  UNITS: 

plane  angle 

radian 

rad 

solid  angle 

steradian 

sr 

DERIVED  UMTS: 

Acceleration 

metre  per  second  squared 

m/s 

activity  (of  a radioactive  souri  e) 

disintegration  per  second 

(disintegration)/g 

angular  acceleration 

radian  per  second  squared 

rad/s 

angular  velocity 

radian  per  second 

rad/s 

area 

square  metre 

m 

density 

kilogram  per  cubic  metre 

kg/m 

electric  capacitance 

farad 

F 

A-s/V 

electrical  conductance 

siemens 

S 

A/V 

electric  field  strength 

volt  per  metre 

V'm 

electric  inductance 

henry- 

H 

V-s/A 

electric  potential  difference 

volt 

V 

W A 

electric  resistance 

ohm 

VA 

electromotive  force 

volt 

V 

VV/A 

energy 

toule 

I 

N-m 

entropy 

joule  per  kelvin 

)(K 

force 

newton 

N 

kg-m/s 

frequency 

hertz 

Hz 

(cycle)is 

illuminance 

lux 

lx 

lm/m 

luminance 

candela  per  square  metre 

cd/m 

luminous  flux 

lumen 

Im 

cd-sr 

magnetic  field  strength 

ampere  per  metre 

Wb 

A/m 

magnetic  flux 

weber 

V-s 

magnetic  flux  density 

tesla 

T 

Wb/m 

magnetomotive  force 

ampere 

A 

V* 

power 

watt 

W 

pressure 

pascal 

Pa 

N Im 

quantity  of  electricity- 

coulomb 

C 

A-s 

quantity  of  heat 

joule 

1 

N-m 

radiant  intensity- 

watt  per  steradian 

W'sr 

specific  heat 

loule  per  kilogram-kelvin 

l'kg-k 

stress 

pascal 

Pa 

N<m 

thermal  conductivity 

watt  per  metre-kelvin 

W'm-K 

velocity 

metre  per  second 

m/s 

viscosity,  dynamic 

pascal-second 

Pa-s 

viscosity,  kinematic 

square  metre  per  second 

m/s 

voltage 

volt 

V 

W<A 

volume 

cubic  metre 

m 

wavenumber 

reciprocal  metre 

(wave)lm 

work 

toule 

i 

N-m 

SI  PREFIXES: 


_ Multiplication  Factors 


1 000  000  000  000  = 10 11 
1 000  000  000  = 10* 

1 000  000  = 10* 

1 OOO  - 10’ 
100  = 10' 

10  = 10' 

0 1 = 10-' 
001  = 10-J 
0 001  = 10-' 
0 000  001  * 10-  * 
0 000  000  001  - 10  -* 
0.000  000  (KM)  001  - 10  11 
0 000  000  OOO  000  001  10  " 

0 (100  (WO  000  IKK)  OOO  001  10  '* 


’ To  be  avoided  where  possible 
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